SetSecond Subroutine

public subroutine SetSecond(second, time)

Set the second of the datetime represented by this instance

Arguments

Type IntentOptional Attributes Name
integer(kind=short), intent(in) :: second
type(DateTime), intent(out) :: time

Source Code

SUBROUTINE  SetSecond &
!
(second, time)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT(IN) :: second

! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time

!------------end of declaration------------------------------------------------

time % second = second

CALL DateCheck (time)

END SUBROUTINE SetSecond